Monster Media 1996 #15/Monster Media Number 15 (Monster Media)(July 1996).ISO/prog_d/ptools12.zip/ACTDEF.DFM/ACTDEF.txt

Text File | 1996-02-02 | 7KB | 319 lines

object ActDefDlg: TActDefDlg
  Left = 233
  Top = 385
  ActiveControl = NextButton
  BorderStyle = bsDialog
  Caption = 'Action Definition'
  ClientHeight = 223
  ClientWidth = 325
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  TextHeight = 16
  object Sample: TPaintBox
    Left = 8
    Top = 12
    Width = 92
    Height = 73
    OnPaint = SamplePaint
  end
  object NextButton: TBitBtn
    Left = 236
    Top = 184
    Width = 77
    Height = 27
    Caption = '&Next'
    TabOrder = 0
    OnClick = NextClick
    Margin = 2
    Style = bsNew
    Spacing = -1
  end
  object PrevButton: TBitBtn
    Left = 152
    Top = 184
    Width = 77
    Height = 27
    Caption = '&Prev'
    Enabled = False
    TabOrder = 1
    OnClick = PrevClick
    Glyph.Data = {
      B6010000424DB601000000000000760000002800000028000000100000000100
      0400000000004001000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      44777777777777777777FF7777777777777777746477777777777777777F7F77
      7777777777777746647777777777777777F77F77777777777777746664777777
      777777777F777F7777777777777746666477777777777777F7777F7777777777
      77746666647777777777777F77777F77777777777746666664777777777777F7
      77777F7777777777746666666477777777777F7777777F77777777777E666666
      647777777777787777777F777777777777E66666647777777777778777777F77
      77777777777E6666647777777777777877777F77777777777777E66664777777
      7777777787777F777777777777777E66647777777777777778777F7777777777
      777777E6647777777777777777877F77777777777777777E6477777777777777
      77787F777777777777777777E677777777777777777787777777}
    Margin = 2
    NumGlyphs = 2
    Style = bsNew
    Spacing = -1
  end
  object bbCancel: TBitBtn
    Left = 8
    Top = 184
    Width = 77
    Height = 27
    TabOrder = 2
    OnClick = bbCancelClick
    Kind = bkCancel
    Margin = 2
    Style = bsNew
    Spacing = -1
  end
  object Notebook: TNotebook
    Left = 116
    Top = 12
    Width = 197
    Height = 153
    PageIndex = 5
    TabOrder = 3
    object TPage
      Left = 0
      Top = 0
      Caption = 'Select'
      object Label1: TLabel
        Left = 8
        Top = 16
        Width = 98
        Height = 16
        Caption = 'Select an action:'
      end
      object cbActionsList: TComboBox
        Left = 16
        Top = 40
        Width = 140
        Height = 24
        Style = csDropDownList
        ItemHeight = 16
        Items.Strings = (
          'MultMedia Frame'
          'Execute a program'
          'Play an Audio'
          'Short Description'
          'BookMark'
          'Close'
          'None')
        TabOrder = 0
        OnChange = cbActionsListChange
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'New Frame'
      object Label3: TLabel
        Left = 8
        Top = 16
        Width = 91
        Height = 16
        Caption = 'What to include'
      end
      object cbAudio: TCheckBox
        Left = 12
        Top = 60
        Width = 61
        Height = 13
        Caption = 'Audio'
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = MMClick
      end
      object cbPicture: TCheckBox
        Left = 12
        Top = 40
        Width = 61
        Height = 13
        Caption = 'Picture'
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = MMClick
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Existing Frame'
      object Label2: TLabel
        Left = 8
        Top = 16
        Width = 83
        Height = 16
        Caption = 'Existing frame'
      end
      object Label7: TLabel
        Left = 8
        Top = 88
        Width = 14
        Height = 16
        Caption = 'Or'
      end
      object cbFrameList: TComboBox
        Left = 16
        Top = 40
        Width = 140
        Height = 24
        Style = csDropDownList
        ItemHeight = 16
        Items.Strings = (
          'Form3')
        TabOrder = 0
      end
      object bbNewFrame: TBitBtn
        Left = 16
        Top = 112
        Width = 140
        Height = 25
        Caption = 'New Frame'
        TabOrder = 1
        OnClick = bbNewFrameClick
        Style = bsNew
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Execute'
      object Label4: TLabel
        Left = 8
        Top = 5
        Width = 89
        Height = 16
        Caption = 'Program name'
      end
      object SpeedButton1: TSpeedButton
        Left = 165
        Top = 23
        Width = 20
        Height = 24
        Caption = '...'
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold]
        ParentFont = False
        OnClick = SpeedButton1Click
      end
      object Label5: TLabel
        Left = 8
        Top = 59
        Width = 99
        Height = 16
        Caption = 'Working Dirctory'
      end
      object Label6: TLabel
        Left = 8
        Top = 104
        Width = 70
        Height = 16
        Caption = 'Parameters'
      end
      object txFileName: TEdit
        Left = 8
        Top = 23
        Width = 153
        Height = 24
        TabOrder = 0
        Text = 'txFileName'
      end
      object txWorkDir: TEdit
        Left = 8
        Top = 79
        Width = 153
        Height = 24
        TabOrder = 1
        Text = 'txWorkDir'
      end
      object txParam: TEdit
        Left = 8
        Top = 123
        Width = 153
        Height = 24
        TabOrder = 2
        Text = 'txParam'
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Play Wave'
      object Label8: TLabel
        Left = 8
        Top = 16
        Width = 163
        Height = 16
        Caption = 'Select an audio component'
      end
      object cbWaveList: TComboBox
        Left = 16
        Top = 40
        Width = 140
        Height = 24
        Style = csDropDownList
        ItemHeight = 16
        TabOrder = 0
      end
      object bbPlayWave: TBitBtn
        Left = 16
        Top = 96
        Width = 140
        Height = 25
        Caption = 'Play'
        TabOrder = 1
        OnClick = bbPlayWaveClick
        Style = bsNew
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Desc'
      object Label9: TLabel
        Left = 8
        Top = 16
        Width = 144
        Height = 16
        Caption = 'Type a short description'
      end
      object txDesc: TEdit
        Left = 16
        Top = 39
        Width = 153
        Height = 24
        TabOrder = 0
        Text = 'txDesc'
      end
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'EXE'
    Filter = '*.exe;*.bat|*.EXE;*.BAT|*.exe|*.EXE|*.bat|*.BAT'
    Options = [ofReadOnly, ofHideReadOnly, ofFileMustExist]
    Left = 108
    Top = 184
  end
end